home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTH / H166B.ZIP / L4.ZIP / P4-10DC.SEQ < prev    next >
Encoding:
Text File  |  1990-04-12  |  391 b   |  24 lines
  1. e\ Problem 4.10   04/11/90 20:23:50.55
  2.  
  3. : ON    ( adr -- )
  4.         -1 SWAP ! ;
  5.  
  6. : OFF   ( adr -- )
  7.         0 SWAP ! ;
  8.  
  9. : +!    ( n adr -- )
  10.         SWAP OVER @ + SWAP ! ;
  11.  
  12. : ?     ( adr -- )
  13.         @ . ;
  14.  
  15. VARIABLE TEMPERATURE
  16.  
  17. : WARMER        ( inc TEMPERATURE by 5 )
  18.         5 TEMPERATURE +! ;
  19.  
  20. : COOLER        ( dec TEMPERATURE by 5 )
  21.         -5 TEMPERATURE +! ;
  22.  
  23.  
  24.